VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmInserisciFuga 
   Caption         =   "Inserisci Fuga"
   ClientHeight    =   1380
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3150
   OleObjectBlob   =   "frmInserisciFuga.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmInserisciFuga"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandButton1_Click()
    
    Dim Fuga As Double
    Fuga = TextBoxFuga.Value
        
    If Fuga <= 0# Then
        MsgBox "I valori inseriti devono essere maggiori di 0.00 mm"
    Else
        Call OttieniMisure(Fuga)
        Unload Me 'Chiude il form di inserimento
    End If
End Sub

